The Fast Show Comedy Pack/The Fast Show Comedy Pack.iso/FSQuiz/FSQuiz.dxr/Internal_4_questionClick.ls

Text File | 1999-11-15 | 539 b | 34 lines

property meSprite, meMem
global gNumPlayers, gTherm

on beginSprite me
  meSprite = sprite(me.spriteNum)
  if gNumPlayers = 2 then
    mKillClickBehaviour(me)
  end if
end

on mKillClickBehaviour me
  meSprite.scriptInstanceList = []
  cursor(0)
end

on mouseDown me
  cursor(-1)
  if objectp(gTherm) then
    gTherm.mClick(me.spriteNum - 10)
  end if
end

on mouseEnter me
  if the mouseDownScript <> "stopEvent" then
    cursor(280)
  end if
end

on mouseLeave me
  if the mouseDownScript <> "stopEvent" then
    cursor(-1)
  end if
end